home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbaseacc.arc / PRINTOUT.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  59 lines
  1.           **********   PRINTOUT COMMAND FILE   **********
  2. * This file is used by several other command files.  It prints out a
  3. * listing of the records in a file without the record number.  The
  4. * output is spaced every 10 records and the printer is positioned back
  5. * at the left margin after the printout.
  6. *      The calling command file determines where the printout starts by
  7. * specifying a value for the variable "Number".
  8. *      This does not show the record numbers.  To do so, use the
  9. * Review.Cmd file.
  10. **********************************************************************
  11.  
  12. IF VAL(Number) > 0
  13.    GOTO RECORD &Number
  14. ELSE
  15.    GO TOP
  16. ENDIF
  17.  
  18. STORE 0 TO Count
  19. DO WHILE .NOT. EOF
  20.    IF *
  21.       SKIP
  22.    ELSE
  23.       DISPLAY &Condition
  24.       SKIP
  25.       STORE Count+1 TO Count
  26.       IF Count=10
  27.   STORE 0 TO Count
  28.   * Spaces one line every 10 records, then waits.  Turns the printer
  29.          * off so that "WAIT" does not print.
  30.          ?
  31.          SET PRINT OFF
  32.          WAIT
  33.          IF !(Output)+ 'Y'
  34.      SET PRINT ON
  35.          ENDIF
  36.       ENDIF
  37.    ENDIF
  38. ENDDO
  39. * The next 2 lines reposition the printer at the
  40. * left margin.
  41. ?
  42. SET PRINT OFF
  43.  
  44. RELEASE Count, Output
  45. RETURN
  46. Taxable,Sales:Tax,TaxFree,' '+STR(Amount,9,2) OFF
  47.     STORE Count + 1 TO Count
  48.     SKIP
  49. ENDDO
  50. IF PageMak > 3
  51.     * Formfeed if not enough room to print the following list
  52.     ? CHR(12)
  53. ENDIF
  54. ?
  55. ?
  56. ? 'ENTER THE FOLLOWING DATA ON THE BOARD OF EQUALIZIZITH ' USED ' FOR VAL(Inv:Nmbr) < 1000
  57.  
  58. STORE $(Start,3,2)+'/'+$(Start,5,2)+'/'+$(Start,1,2) TO Start
  59. STORE $